; test copy-list
(setf x '(a b c)
			y (copy-list x))

(format t "copy-list eql: ~A~%" (eql x y))
(format t "copy-list equal : ~A~%" (equal x y))

(defun our-copy-list (lst)
	(if (atom lst)
		lst
		(cons (car lst) (our-copy-list (cdr lst)))))

(setf xx '(a b c)
			yy (our-copy-list xx))

(format t "our-copy-list eql: ~A~%" (eql xx yy))
(format t "our-copy-list equal : ~A~%" (equal xx yy))

